home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / lem.s < prev    next >
Text File  |  1991-11-23  |  2KB  |  65 lines
  1. *****************************************************************************
  2. * Modulname:    Lemming
  3. * Modultype:    User level secondary
  4. * Dest.Comp.:    HP48
  5. * Language:    System RPL
  6. * Author:    Detlef Mueller,Nibelungenweg 6,2000 Hamburg 56
  7. * Interface:    LEM    ( --> )
  8. * Description:
  9. * Edition History :
  10. *    1.000    08-11-1991    DM    Alpha version
  11. *      001    09-19-1991    DM    Fix grob, smoth animation
  12. *****************************************************************************
  13.  
  14.     TITLE    Lemming
  15.  
  16.     ASSEMBLE
  17.     NIBASC    /HPHP48-E/    Bin. download header
  18. *                GROB in RPLCOMP generates unusable
  19. *                grob definitions. This is the workaround:
  20. MKSGROB    MACRO            * x,y,gpatt - gpatt max. 80 nibbles
  21.     CON(5)    =DOGROB
  22.     CON(5)    15+(($1+7)/8)*$2*2
  23.     CON(5)    $2
  24.     CON(5)    $1
  25.     NIBHEX    $3
  26. MKSGROB    ENDM
  27.     RPL
  28.  
  29. ::
  30.     CK0NOLASTWD                ( *Std. entry* )
  31.     ClrDA1IsStat            ( *Suspend clock* )
  32.     ZEROZERO TWELVE BLANKIT        ( *Clr. part of DA1* --> #0 )
  33.     GARBAGE                ( *Force garbage collection* )
  34.     BEGIN
  35.     #1+                ( *Inc. x* )
  36.     {   ASSEMBLE            ( *Lemming images* )
  37.         MKSGROB 6,10,00C3C18381818181C181
  38.         MKSGROB 7,10,82C1C18381C1C585C2C0
  39.         MKSGROB 7,10,0041C18183C1C1E3C366
  40.         MKSGROB 6,10,0081C3C38181C181E323
  41.         MKSGROB 6,10,00C3C1C381818181C181
  42.         MKSGROB 7,10,82C1C18381818585C2C0
  43.         MKSGROB 7,10,0041C18183818183C366
  44.         MKSGROB 6,10,0081C3C381818181E323
  45.         RPL
  46.     }
  47.     OVER SEVEN #AND #1+ NTHCOMPDROP    ( *Get lem image*  #x --> #x g )
  48.     HARDBUFF 3PICK FOUR        ( #x g --> #x g hbg #x #4 )
  49.     GROB!                ( *Draw new lem* --> #x )
  50.     DUP THREE #AND #2= IT        ( *On every step ..* )
  51.     ::  THREE 400 setbeep        ( *Generate tick* )
  52.     ;
  53.     %.1 dowait            ( *Slowdown - try to rem. this :*)
  54.     GETTOUCH IT            ( *Key pressed ?*)
  55.     ::  2DROP 123            ( *Yes, signal exit* )
  56.     ;
  57.     ATTN? IT            ( *ATTN pressed ?* )
  58.     ::  DROP 123            ( *Yes, signal exit* )
  59.     ;
  60.     123 OVER#=            ( *Stop loop at x = 123* )
  61.     UNTIL DROP                ( *Drop x* )
  62.     ATTNFLGCLR FLUSHKEYS        ( *Clr attn flag, key buffer* )
  63.     ClrDAsOK                ( *Signal redraw display* )
  64. ;
  65.